12 PRINT"[147]"
13 GOTO33
14 REM MAN JUMPS
15 POKEE%,39:GOSUB19:POKEE%,37:POKES,P:P=P+3:POKEE%,38:GOSUB19
16 IFPEEK(E%-22)=LLTHEN77
17 POKEE%,32:E%=E%-22:POKEE%,38:POKES,0:POKEE%,32:E%=E%-22:POKEE%,38:RETURN
18 REM MOVE BARRELS
19 POKES,O
20 FORX=1TOZ%:POKEB%(X),C
21 IFPEEK(B%(X)+I%)=WTHENB%(X)=B%(X)+D(X)
22 IFPEEK(B%(X))=WTHENB%(X)=B%(X)-T%*D(X)
23 IFPEEK(B%(X)+I%)<>WTHENB%(X)=B%(X)+I%
24 IFPEEK(B%(X))>36ANDPEEK(B%(X))<40THEN77
25 POKEB%(X),LL
26 IFB%(X)>JTHENGOSUB29
27 NEXTX:RETURN
28 REM RESET BARRELS
29 FORX=1TOZ%:POKEB%(X),C:B%(X)=SR+INT(RND(X)*T%):NEXTX
30 REM ? SCORE
31 PRINT"";SPC(242);SPC(244);"SCORE    [157][157][157][157]"SC;"         [157][157][157][157][157][157]";
32 FORQ=3TOA+1STEP-1:PRINT"[146]%";:NEXT:PRINT"":RETURN
33 SR=7681:K=38400-SR+1
34 POKE36879,14
35 POKE36869,255
36 BL$="[158]                      "
37 AL$= "[146][156]$$$$$$$$$$$$$$$$$$$$$$"
38 J=SR+449:V=36878:S=36876
39 FORI=7424TO7424+8*8-1:READA:POKEI,A:NEXT:GOSUB91
40 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,56,108,206,174,234,230,108,56:REM BARREL
41 DATA56,108,246,250,134,222,108,56:REM BARREL
42 DATA255,153,189,153,255,0,0,0:REM BEAM
43 DATA56,56,16,56,84,16,56,40:REM MAN NORMAL
44 DATA186,186,84,56,16,16,56,40,0,0,0,56,56,16,124,170:REM MAN STRETCHING,SQUATING
45 PRINT"[147]":A=0:SC=0:Z%=4
46 REM SET UP SCREEN
47 PRINT"";:BL=60
48 FORI=1TO10:PRINTBL$;AL$;:NEXT:PRINTBL$;BL$;""
49 X=SR+21:POKEV,15
50 FORB=1TOBL
51 R=INT(RND(X)*454)
52 POKEX+R,32:POKES-1,195+B:POKEX+R+K,7:NEXTB
53 FORG=-1TO20STEP1
54 POKEX+G*22,36:POKES-1,200+(G*2):POKEX+G*22+K,5
55 POKEX+21+(G*22),36:POKES-1,0:POKEX+21+(G*22)+K,5:NEXTG
56 REM PREP FOR LOOP
57 E%=J:D(1)=1:D(2)=-1:D(3)=1:D(4)=-1:L=1:LM=17:RM=18:UP=47:BM=39
58 O=0:W=36:C=32:KB=197:T%=20:I%=22:LL=34:D=37:Z=245:P=128:TT%=1:TH%=3:GOSUB29
59 REM MAIN GAME LOOP
60 GOSUB19
61 IFPEEK(E%)=LLTHENE%=E%+22:POKEE%+K,7:POKEE%+I%,36:POKEE%+I%+K,4:GOTO77
62 IFPEEK(E%-I%)=LLTHEN77
63 IFPEEK(E%+I%)=LLTHENPOKEE%,C:E%=E%+44:GOTO77
64 IFLL=34THENLL=35:GOTO66
65 LL=34
66 POKEE%,C
67 IFPEEK(KB)=LMTHENIFPEEK(E%-L)<>WTHENE%=E%-L:GOSUB110:POKEE%,D:GOTO71
68 IFPEEK(KB)=RMTHENIFPEEK(E%+L)<>WTHENE%=E%+L:GOSUB110:POKEE%,D:GOTO71
69 IFPEEK(KB)=BMTHENIFPEEK(E%-I%)=WTHENPOKEE%-I%,C:SC=SC-5:P=P-10:GOTO71
70 IFPEEK(KB)=UPTHENIFPEEK(E%-I%)<>WTHENGOSUB15:SC=SC+2*L:P=P+3:POKEE%,D
71 IFF=1THENF=0:GOTO77
72 POKEE%,D:POKES,P:IFP<128OR P>200THENP=128
73 IF E%<SRTHENE%=J:TT%=TT%+L:GOSUB31:IFSC>35THENZ%=RND(X)*4+1
74 IFTT%>TH%THENGOTO47
75 GOTO60
76 REM LOSE MAN
77 N=15:POKES+1,235:POKEV,N:FORQ=1TO4:POKEB%(Q),32:NEXT
78 POKEE%,38:POKEE%-22,34:GOSUB103:POKEE%,37:GOSUB103:POKEE%,39:GOSUB103
79 POKEE%-22,194:POKEE%,35:GOSUB103:POKEE%+1,173:POKEE%-1,173:POKEE%+22,194
80 POKEE%-21,206:POKEE%-23,205:POKEE%+23,205:POKEE%+21,206:GOSUB103
81 POKEE%-66,174:POKEE%-2,174:POKEE%+2,174:POKEE%+66,174:GOSUB103:POKEE%-42,174
82 POKEE%-46,174:POKEE%+42,174:POKEE%+46,174:GOSUB103
83 POKE36877,0:A=A+1:SC=SC-8:GOSUB31
84 TT%=1:IFA<3GOTO47
85 PRINT"[147]      GAME OVER"
86 PRINT" PRESS P PLAY AGAIN":PRINT"    PRESS E TO END";
87 GETYY$:IFYY$="P"THEN 45
88 IF YY$="E" THEN PRINT"[147]":POKE36869,240:END
89 GOTO87
90 REM
91 PRINT"[147][158]*INSTRUCTIONS*"
92 PRINT"A IS LEFT":PRINT"D IS RIGHT":PRINT"F3 IS UP"
93 PRINT"F1 WILL BLAST            SPACE ABOVE "
94 PRINT"2 FOR EACH UP":PRINT"-5 FOR USING BLAST"
95 PRINT"-8 FOR GETTING HIT"
96 PRINT "PRESS SPACE BAR[159]"
97 IFPEEK(197)<>32THEN97
100 RETURN
102 REM TIME AND SOUND FOR LOSE MAN ROUTINE
103 N=N-2:IFN<0THENN=0
104 POKEV,N:IFPEEK(E%)=38ORPEEK(E%)=39THENFORQ=1TO200:NEXT
105 FORQ=1TO50:NEXT:RETURN
110 IFPEEK(E%)<>34ANDPEEK(E%)<>35THENRETURN
111 F=1:RETURN